; Colonization Hard Drive Installation Script
; by Scott Johnston
;
; Copyright  1994, 1995 Microprose Ltd.
;
; Microprose Ltd.
; The Ridge,
; Chipping Sodbury,
; Avon.
; BS17 6AY
; UK

(complete 0)

;=============================================================================

(set #ask-Colonization-dir-ENG
	(cat
		"In which disk or drawer should a drawer \"Colonization\" "
		"be created where all files will be copied?"
	)
)

(set #ask-Colonization-dir-help-ENG
	(cat
		"Here you specify, where you want to install Colonization "
		"and all support files. A drawer \"Colonization\" will "
		"be created, so you select \"DH0:\" to install Colonization "
		"in a drawer \"DH0:Colonization\".\n\n"
	)
)

(set #ask-Colonization-disk1-ENG
	(cat
		"Please insert the disk labelled... "
		"\"Colonization Disk 1\"."
	)
)

(set #ask-Colonization-disk2-ENG
	(cat
		"Please insert the disk labelled... "
		"\"Colonization Disk 2\"."
	)
)

(set #ask-Colonization-disk3-ENG
	(cat
		"Please insert the disk labelled... "
		"\"Colonization Disk 3\"."
	)
)

;=============================================================================

(set #ask-Colonization-dir-FRE
	(cat
		"Dans quel disque ou tiroir devrait tre cr Colonization?  Tous les fichiers "
		"seront copis  cet endroit."
	)
)

(set #ask-Colonization-dir-help-FRE
	(cat
		"Veuillez spcifier la destination pour l'installation d'Colonization et des "
		"fichiers de soutien.  Un tiroir intitul Colonization sera cr.\n\n"
	)
)

(set #ask-Colonization-disk1-FRE
	(cat
		"Please insert the disk labelled... "
		"\"Colonization Disk 1\"."
	)
)

(set #ask-Colonization-disk2-FRE
	(cat
		"Please insert the disk labelled... "
		"\"Colonization Disk 2\"."
	)
)

(set #ask-Colonization-disk3-FRE
	(cat
		"Please insert the disk labelled... "
		"\"Colonization Disk 3\"."
	)
)

;=============================================================================

(set #ask-Colonization-dir-GER
	(cat
		"In welchem Laufwerk oder welcher Schublade soll Colonization installiert "
		"werden?  Dorthin werden alle Dateien bertragen."
	)
)

(set #ask-Colonization-dir-help-GER
	(cat
		"Bitte angeben, wo Colonization und Zusatzdateien installiert werden sollen.  Eine "
		"Schublade namens Colonization wird dann erstellt.\n\n"
	)
)

(set #ask-Colonization-disk1-GER
	(cat
		"Please insert the disk labelled... "
		"\"Colonization Disk 1\"."
	)
)

(set #ask-Colonization-disk2-GER
	(cat
		"Please insert the disk labelled... "
		"\"Colonization Disk 2\"."
	)
)

(set #ask-Colonization-disk3-GER
	(cat
		"Please insert the disk labelled... "
		"\"Colonization Disk 3\"."
	)
)

;=============================================================================
;=============================================================================
;=============================================================================

;Establish users' language preference

(set language
	(askchoice
		(prompt "")
		(help
			@askchoice-help
		)
		(choices "English" "Franais" "Deutsch")
	)
)

(if (= language 0)
	(
		(set #ask-Colonization-dir #ask-Colonization-dir-ENG)
		(set #ask-Colonization-dir-help #ask-Colonization-dir-help-ENG)
		(set #ask-Colonization-disk1 #ask-Colonization-disk1-ENG)
		(set #ask-Colonization-disk2 #ask-Colonization-disk2-ENG)
		(set #ask-Colonization-disk3 #ask-Colonization-disk3-ENG)
	)
)
(if (= language 1)
	(
		(set #ask-Colonization-dir #ask-Colonization-dir-FRE)
		(set #ask-Colonization-dir-help #ask-Colonization-dir-help-FRE)
		(set #ask-Colonization-disk1 #ask-Colonization-disk1-FRE)
		(set #ask-Colonization-disk2 #ask-Colonization-disk2-FRE)
		(set #ask-Colonization-disk3 #ask-Colonization-disk3-FRE)
	)
)
(if (= language 2)
	(
		(set #ask-Colonization-dir #ask-Colonization-dir-GER)
		(set #ask-Colonization-dir-help #ask-Colonization-dir-help-GER)
		(set #ask-Colonization-disk1 #ask-Colonization-disk1-GER)
		(set #ask-Colonization-disk2 #ask-Colonization-disk2-GER)
		(set #ask-Colonization-disk3 #ask-Colonization-disk3-GER)
	)
)

;=============================================================================

;Ask for destination drawer or partition

(set Colonization_dest
	(tackon
		(askdir
			(prompt #ask-Colonization-dir)
			(help
				#ask-Colonization-dir-help
				@askdir-help
			)
			(default "Work:")
		)
		"Colonization"
	)
)
(set @default-dest Colonization_dest)

(complete 10)

;=============================================================================

;Make destination drawer

(working #ask-Colonization-copying)

(makedir Colonization_dest
	(infos)
)

(complete 20)

;=============================================================================

;Copy files from disk 1

(askdisk
	(dest "Colonization Disk 1")
	(prompt #ask-Colonization-disk1)
	(help @copyfiles-help)
)

(copyfiles
	(source "Colonization Disk 1:")
	(dest Colonization_dest)
	(pattern "~((Install)#?)")
	(infos)
	(help @copyfiles-help)
)

(complete 48)

(delete (cat Colonization_dest "/C")
	(help @delete-help)
)

(complete 50)

(delete (cat Colonization_dest "/Libs")
	(help @delete-help)
)

(complete 52)

(delete (cat Colonization_dest "/S")
	(help @delete-help)
)

(complete 54)

(delete (cat Colonization_dest "/Devs")
	(help @delete-help)
)

(complete 56)

;(delete (cat Colonization_dest "/Colonization")
;	(help @delete-help)
;)
;(rename (cat Colonization_dest "/ColonizationHD") (cat Colonization_dest "/Colonization")
;	(help @rename-help)
;)

;(complete 58)
;
;(if (< (getversion "intuition.library" (resident)) 36)
;	(
;		(delete (cat Colonization_dest "/Colonization.info")
;			(help @delete-help)
;		)
;		(rename (cat Colonization_dest "/Icon1.3") (cat Colonization_dest "/Colonization.info")
;			(help @rename-help)
;		)
;	)
;)

(complete 60)

;=============================================================================

;Copy all the program files from disk 2

(askdisk
	(dest "Colonization Disk 2")
	(prompt #ask-Colonization-disk2)
	(help @copyfiles-help)
)

(copyfiles
	(source "Colonization Disk 2:")
	(dest Colonization_dest)
	(pattern "~((Install)#?)")
	(infos)
	(help @copyfiles-help)
)

(complete 80)

;=============================================================================

;Copy all the program files from disk 3

(askdisk
	(dest "Colonization Disk 3")
	(prompt #ask-Colonization-disk3)
	(help @copyfiles-help)
)

(copyfiles
	(source "Colonization Disk 3:")
	(dest Colonization_dest)
	(pattern "~((Install)#?)")
	(infos)
	(help @copyfiles-help)
)

(complete 95)

(delete (cat Colonization_dest "/disk.info")
	(help @delete-help)
)

(complete 100)


(exit)
